;;;; init-colors  -  Colors and Fonts settings 
;;;;
;;;; Evgeniy Sharapov, evgeniy.sharapov@gmail.com 
;;;;
;;;;
(setq
 font-lock-maximum-decoration t
 color-theme-is-global t
)
(set-default-font "-outline-Consolas-normal-r-normal-normal-16-120-96-96-c-*-iso8859-1")
(global-font-lock-mode t)

(defun pretty-lambdas ()
  (font-lock-add-keywords
   nil `(("(?\\(lambda\\>\\)"
          (0 (progn (compose-region (match-beginning 1) (match-end 1)
                                    ,(make-char 'greek-iso8859-7 107))
                    nil))))))

(defun highlight-xxx-tags ()
  "Highlights XXX , TODO , etc. tags in the source files using FONT-LOCK-WARNING-FACE"
  (setq font-lock-keywords
        (append font-lock-keywords
                '(("[ \t]+$" (0 'trailing-spaces-face t))
                  ("\\<FIXME\\|TODO\\|BUG\\|FIXME\\|XXX\\([ \t:]\\)+" (0 'font-lock-warning-face t))))))
;(add-hook 'font-lock-mode-hook 'highlight-xxx-tags)

(require 'color-theme)
(color-theme-initialize)
;(load-file "~/.emacs.d/extra/themes/pastels-on-dark-theme.el")
;(color-theme-pastels-on-dark)
(load-file "~/.emacs.d/extra/themes/color-theme-blackboard.el")
(color-theme-blackboard)

(defface paren-face
    '((((class color) (background dark))
       (:foreground "grey20"))
      (((class color) (background light))
       (:foreground "grey55")))
    "Face used to dim parentheses."
    :group 'sen-faces)


(provide 'init-colors)
